Top 10k strings from Saturnus (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 530 CSIZE 0,0
   1 520 END DEFine saturnus
   1 510   AT 0,3:PRINT "SATURNUS"
   1 500   CSIZE 3,1
   1 490   FILL 0
   1 480   ARC 100,46 TO 50,46,PI
   1 470   INK 5,6
   1 460   FILL 1
   1 450    NEXT j
   1 440     NEXT i
   1 430     r=r+2
   1 420     CIRCLE 75,50,r,.2,PI/2
   1 410     INK i+1,j
   1 400    FOR i = 1 TO 5
   1 390   FOR j = 1 TO 3
   1 380   r=30
   1 370   FILL 0
   1 360   ARC 50,50 TO 100,50,PI
   1 350   INK 5,6
   1 340   FILL 1
   1 330   stars
   1 32060 END DEFine 
   1 32050  PRINT#0,"Saved"!a$
   1 32040  DELETE a$:SAVE a$
   1 32030  IF dr=2:a$="mdv2_"&a$
   1 32020  IF dr=1:a$="mdv1_"&a$
   1 32010  LOCal a$:a$="saturn"
   1 32000 DEFine PROCedure resave (dr)
   1 320 DEFine PROCedure saturnus
   1 300 END DEFine stars
   1 290   NEXT i
   1 28100 END DEFine p_alkutila
   1 28090  SCALE 100,0,0
   1 28080  OVER 0:UNDER 0
   1 28070  FILL 0:FLASH 0
   1 28060  PAPER#2,1:INK#2,7
   1 28050  PAPER#1,2:INK#1,7
   1 28040  PAPER#0,0:INK#0,7
   1 28030  WINDOW#2,448,200,32,16
   1 28020  WINDOW#1,448,200,32,16
   1 28010  WINDOW#0,448,40,32,216
   1 28000 DEFine PROCedure p_alkutila
   1 280    POINT RND(170),RND(170)
   1 270    INK RND(1 TO 7),RND(1 TO 7)
   1 260   FOR i = 1 TO 300
   1 240   PAPER 0
   1 230 DEFine PROCedure stars
   1 210 p_alkutila
   1 200 saturnus
   1 180 SCALE 100,0,0
   1 170 CLS#0:CLS#1:CLS#2
   1 160 WINDOW#2,448,200,32,16
   1 150 WINDOW#1,448,200,32,16
   1 140 WINDOW#0,448,40,32,216
   1 120 REMark ************
   1 110 REMark * SATURNUS *
   1 100 REMark ************